home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / Adroff2 / Examples / report#2.ad (.txt) < prev    next >
Encoding:
NeXT TypedStream Data  |  1992-03-17  |  3.1 KB  |  92 lines
  1. typedstream
  2. Window
  3.     Responder
  4. Object
  5.     @@ifss**s
  6. TextView
  7. ScrollView
  8. ClipView
  9. ciifffcfffs
  10. [2508c]{\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  11. \margl40
  12. \margr40
  13. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480\f0\b0\i0\ul0\fs24 \
  14. Title    1 time per    Report\
  15. Column Headings    1 time per    Report\
  16. deptCode    1 time per    Commission\
  17. salesPersonName    1 time per    Commission\
  18. monthName    1 time per    Commission\
  19. commAmount    1 time per    Commission\
  20. "Total for Month of "    1 time per    Month\
  21. monthTotal    1 time per    Month\
  22. "Total Commissions "    1 time per    Report\
  23. reportTotal    1 time per    Report\
  24. ENTITY    OCCURS    ENTITY\
  25. Report    1 time only.\
  26. Month    many times per    Report\
  27. Commission    many times per    Month\
  28. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  29. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Commission Report #2\
  30. Title\
  31. Column Headings\
  32. Month\
  33. Commission\
  34. deptCode\
  35. salesPersonName\
  36. monthName\
  37. commAmount\
  38. "Total for Month of "\
  39. monthName\
  40. monthTotal\
  41. "Total Commissions "    \
  42. reportTotal\
  43. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 \
  44. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  45. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Print Commission Report #2\
  46. Print Title\
  47. Print Column Headings\
  48. For each Month\
  49. For each Commission\
  50. Print deptCode\
  51. Print salesPersonName\
  52. Print monthName\
  53. Print commAmount\
  54. Print"Total for Month of "\
  55. Print monthName\
  56. Print monthTotal\
  57. Print"Total Commissions "    \
  58. Print reportTotal\
  59. \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320 \
  60. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 \
  61. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  62. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Print Commission Report #2\
  63. Print Title\
  64. Print Column Headings\
  65. Read deptCode, salespersonName, monthName, commAmount\
  66. reportTotal = 0\
  67. While not EOF     (Month)\
  68. prevMonthname = monthName\
  69. While  monthName = previousMonthName   ( Commission)\
  70. and not EOF\
  71. Print deptCode\
  72. Print salesPersonName\
  73. Print monthName\
  74. Print commAmount\
  75. monthtotal = monthTotal + commAmount\
  76. Read deptCode, salespersonName, monthName, commAmount\
  77. Print"Total for Month of "\
  78. Print monthName\
  79. Print monthTotal\
  80. reportTotal = reportTotal + monthTotal\
  81. Print"Total Commissions "    \
  82. Print reportTotal\
  83. NXCursor
  84. NXImage
  85. NXibeam
  86. Scroller
  87. Control
  88. _doScroller:
  89. NXRulerView
  90. @@@ffs
  91. 8/private/Net/apollo/Users/jrett/Book/CommRpt/report#2.ad
  92.